home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / HENSA / MATHS / PLPLOT / PLPLOT.ZIP / src / stubf / strutil.f < prev   
Encoding:
Text File  |  1994-05-27  |  1.1 KB  |  58 lines
  1. ! $Id: strutil.f,v 1.2 1994/05/26 19:24:47 mjl Exp $
  2. ! $Log: strutil.f,v $
  3. c Revision 1.2  1994/05/26  19:24:47  mjl
  4. c Inserted missing CVS Id and Log fields.
  5. c
  6.  
  7.       subroutine plstrf2c(string1, string2, maxlen)
  8.  
  9.       integer*4 maxlen
  10.       character*(*) string1, string2
  11.  
  12.       integer*4 limit, islen
  13.       external islen
  14.  
  15.       limit = min0(islen(string1),maxlen-1)
  16.       do 100 i = 1,limit
  17.          string2(i:i) = string1(i:i) 
  18.  100  continue
  19.       string2(i:i) = char(0)
  20.  
  21.       return
  22.       end
  23.  
  24.  
  25.       subroutine plstrc2f(string1, string2)
  26.  
  27.       character*(*) string1, string2
  28.  
  29.       integer*4 limit
  30.       character*300 stringbuf
  31.  
  32.       limit = 1
  33.  10   if (ichar(string1(limit:limit)) .eq. 0) goto 20
  34.       stringbuf(limit:limit) = string1(limit:limit)
  35.       limit = limit + 1
  36.       goto 10
  37.     
  38.  20   string2 = stringbuf(1:limit-1)
  39.  
  40.       return
  41.       end
  42.  
  43.  
  44.       integer function islen(string)
  45.       character*(*) string
  46.       integer i
  47.  
  48.       do 100 i = len(string),1,-1
  49.          if (string(i:i) .ne. ' ') then
  50.             islen = i
  51.             return
  52.          endif
  53.  100  continue
  54.        
  55.       islen = 1
  56.       return
  57.       end
  58.